home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00058_Script_make sub fields < prev    next >
Text File  |  1997-07-29  |  1KB  |  29 lines
  1. on makesubfields pm, cnum
  2.   put pm& "," & "annotations" into ref_fld
  3.   put pm& "," & "cap" into cap_fld
  4.   repeat with x = 1 to the number of lines of field ref_fld
  5.     set tmp to line x of field ref_fld
  6.     set hbio = item 2 of tmp
  7.     set pcredit = line (integer(item 3 of tmp)) of field cap_fld
  8.     delete item 1 of pcredit
  9.     set tscript = "tra_"&item 1 of tmp
  10.     put  "PHOTO: "&pcredit&return&return into pp
  11.     
  12.     new(#field, member (cnum + x) of castlib "Internal")
  13.     set the name of member (cnum + x) of castlib "Internal" to "sub_"&item 1 of tmp
  14.     --    set the backcolor of member (cnum + x) of castlib "Internal" to 2
  15.     --    set  the fontStyle of member  (cnum + x) of castlib "Internal" to "Geneva"
  16.     --    set the fontSize of member (cnum + x) of castlib "Internal" to 10
  17.     put pp&"TRANSCRIPT:"&return&the text of cast tscript &return&return&"COMMENTATOR: "&return&field hbio into member (cnum + x) of castlib "Internal"
  18.     
  19.   end repeat
  20.   
  21.   
  22.   
  23.   --put pp&"Transcript:"&return&the text of cast tscript &return&return&"Commentator: "&return&field hbio into  field "sub_win text"
  24.   
  25.   --set printtextcast = tscript
  26.   
  27.   
  28. end
  29.